home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / utils / recoqlib / lib / src / recoq.i next >
Text File  |  1980-01-03  |  538b  |  33 lines
  1.                 * recoq linkable library code for SAS/C * 
  2.                                * recoq.lib *
  3.                           * Copyright LsD 1993 *
  4.  
  5.     IFND LIBRARIES_RECOQ_LIB_I
  6.  
  7.     include "libraries/recoq_lib.i"
  8.  
  9.     ENDC
  10.  
  11. SMALL_CODE    equ    0        ; set this as needed 
  12. LARGE_CODE    equ    1
  13.  
  14.  
  15.     XREF    _RecoqBase
  16.  
  17. GETRQBASE    MACRO
  18.  
  19.     IFD    SMALL_CODE
  20.         move.l    _RecoqBase(a4),a6    ; if a4 addressing
  21.     ENDC
  22.  
  23.     IFD LARGE_CODE
  24.         move.l    _RecoqBase,a6        ; If no a4 addressing
  25.     ENDC
  26.  
  27.     IFND SMALL_CODE
  28.         IFND LARGE_CODE
  29.             clr.l    a0    ; make an error
  30.         ENDC
  31.     ENDC
  32.     ENDM
  33.